home *** CD-ROM | disk | FTP | other *** search
/ PC Open 103 / PC Open 103 CD 1.bin / CD1 / INTERNET / WEBDESIGN / Tsw WebCoder / tswwebcoder5en.exe / {app} / scripts / scriptcode / TSW Convert Scripts / converthtmltolowercase.tss < prev    next >
Encoding:
Text File  |  2003-09-22  |  1017 b   |  46 lines
  1. {
  2. [Scriptsettings]
  3. Scriptname=Convert all HTML tags and attributes to lowercase
  4. ExecuteOnStartup=0
  5. ExecuteOnlyOnce=0
  6. }
  7. program ConvertHTMLToLowercase;
  8.  
  9. function LowercaseHTML(s: string) : string;
  10. var
  11.  i, j:integer;
  12.  AttribStart:integer;
  13.  InTag : boolean;
  14. begin
  15. for i := 1 to Length(s)-1 do
  16.  begin
  17.   if (s[i] = '<') and (s[i+1] <> ' ') and (s[i+1] <> '!') then
  18.    begin
  19.     InTag := true;
  20.     for j := i to Length(s) do
  21.      if (s[j] = ' ') or (s[j] = '>') then
  22.       begin
  23.        AttribStart := j;
  24.        s := Copy(s, 1, i-1)+Lowercase(Copy(s, i, j-i+1))+Copy(s, j+1, Length(s));
  25.        break;
  26.       end;
  27.    end;
  28.   if s[i] = '>' then
  29.    InTag := false;
  30.   If InTag then
  31.    begin
  32.     if s[i] = ' ' then
  33.      AttribStart := i;
  34.     if s[i] = '=' then
  35.      s := Copy(s, 1, AttribStart-1)+Lowercase(Copy(s, AttribStart, i-AttribStart))+Copy(s, i, Length(s));
  36.    end;
  37.  end;
  38. Result := s;
  39. end;
  40.  
  41. var
  42.  Code: string;
  43. begin
  44.  Editor.Lines.Text := LowercaseHTML(Editor.Lines.Text);
  45. end;
  46.